home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / game / patch / WHDIDemos.lzh / Angels_CopperMaster.lha / Install < prev    next >
Text File  |  1980-07-07  |  3KB  |  150 lines
  1. ;****************************
  2. (set #readme-file "ReadMe")     ;name of readme file
  3. (set #cleanup "")        ;files to delete after install
  4.  
  5. ;****************************
  6. ;----------------------------
  7. ; checks if given program is installed, if not abort install
  8. ; #program - to check
  9.  
  10. (procedure P_ChkRun
  11.   (if
  12.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  13.     ("")
  14.     (abort
  15.       (cat
  16.     "You must install \"" #program "\" first!\n"
  17.     "It must be accessible via the path.\n"
  18.     "You can find it in the WHDLoad package."
  19.       )
  20.     )
  21.   )
  22. )
  23.  
  24. (procedure P_ChkRun_XFD
  25.   (if
  26.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  27.     ("")
  28.     (abort
  29.       (cat
  30.     "You must install \"" #program "\" first!\n"
  31.     "It must be accessible via the path.\n"
  32.     "You can find it in the XFD package."
  33.       )
  34.     )
  35.   )
  36. )
  37.  
  38. ;----------------------------
  39. ; Wait for inserting disk
  40. ; IN:  #AD_disk - name of disk
  41. ; OUT: -
  42.  
  43. (procedure P_disk
  44.     (message ("Ensure the file ANGELS.COPPERMASTER is available in RAM:"))
  45. )
  46.  
  47. ;****************************
  48.  
  49. (if
  50.   (exists #readme-file)
  51.   (if
  52.     (= 0 (run ("SYS:Utilities/Multiview %s" #readme-file)))
  53.     ("")
  54.     (run ("SYS:Utilities/More %s" #readme-file))
  55.   )
  56. )
  57.  
  58. (set #program "WHDLoad")
  59. (P_ChkRun)
  60.  
  61. (set #program "xfddecrunch")
  62. (P_ChkRun_XFD)
  63.  
  64. (set @default-dest
  65.   (askdir
  66.     (prompt ("Where should \"%s\" be installed?\nA drawer \"%s\" will be automatically created." @app-name @app-name))
  67.     (help @askdir-help)
  68.     (default @default-dest)
  69.     (disk)
  70.   )
  71. )
  72. (set #dest (tackon @default-dest @app-name))
  73. (if
  74.   (exists #dest)
  75.   (
  76.     (set #choice
  77.       (askbool
  78.         (prompt ("\nDirectory \"%s\" already exists.\n Should it be deleted?" #dest))
  79.         (default 1)
  80.         (choices "Delete" "Skip")
  81.         (help @askbool-help)
  82.       )
  83.     )
  84.     (if
  85.       (= #choice 1)
  86.       (run ("Delete \"%s\" \"%s.info\" All" #dest #dest))
  87.     )
  88.   )
  89. )
  90. (makedir #dest
  91.   (help @makedir-help)
  92.   (infos)
  93. )
  94.  
  95. ;----------------------------
  96.  
  97. (copyfiles
  98.   (help @copyfiles-help)
  99.   (source ("Copper.Slave"))
  100.   (dest #dest)
  101. )
  102.  
  103. (copyfiles
  104.   (help @copyfiles-help)
  105.   (source ("CopperMaster.info"))
  106.   (dest #dest)
  107. )
  108. (copyfiles
  109.   (help @copyfiles-help)
  110.   (source ("proreplay.bin"))
  111.   (dest #dest)
  112. )
  113. (if
  114.   (exists #readme-file)
  115.   (copyfiles
  116.     (help @copyfiles-help)
  117.     (source #readme-file)
  118.     (dest #dest)
  119.   )
  120. )
  121. (if
  122.   (exists ("Readme.info"))
  123.   (copyfiles
  124.     (help @copyfiles-help)
  125.     (source ("Readme.info"))
  126.     (dest #dest)
  127.   )
  128. )
  129.  
  130. ;----------------------------
  131.  
  132.  
  133. (P_disk)
  134. (if
  135.   (= 0 (run ("xfddecrunch \"RAM:ANGELS.COPPERMASTER\" \"RAM:COPPER\" >CON:///1000//CLOSE" #dest)))
  136.   ("")
  137.   (abort "\"xfddecrunch\" has failed to decompress the demo")
  138. )
  139. (copyfiles
  140.   (help @copyfiles-help)
  141.   (source ("RAM:COPPER"))
  142.   (dest #dest)
  143. )
  144. ;----------------------------
  145.  
  146. (run ("Delete RAM:ANGELS.COPPERMASTER.LHA ALL QUIET FORCE" #cleanup))
  147. (run ("Delete RAM:ANGELS.COPPERMASTER ALL QUIET FORCE" #cleanup))
  148. (run ("Delete RAM:COPPER ALL QUIET FORCE" #cleanup))
  149. (exit)
  150.